home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 January / inter@ivo 1997-01.iso / cybint12 / bin / rcervj.dxr / 00055.ls < prev    next >
Encoding:
Text File  |  1996-12-14  |  318 b   |  19 lines
  1. on mouseUp
  2.   global act
  3.   set act to 1
  4.   sound playFile 2, "..\som\ovo.wav"
  5.   startTimer()
  6.   repeat while the timer < 20
  7.     nothing()
  8.   end repeat
  9.   InVis(12)
  10.   onVis(13)
  11.   updateStage()
  12.   startTimer()
  13.   repeat while the timer < 30
  14.     nothing()
  15.   end repeat
  16.   set the movieRate of sprite 12 to 0
  17.   onVis(17, 19)
  18. end
  19.